﻿Public Class KeyMap
    Private _fromKeycode As Integer
    Public Property FromKeycode() As Integer
        Get
            Return _fromKeycode
        End Get
        Set(ByVal value As Integer)
            _fromKeycode = value
        End Set
    End Property

    Private _fromAlt As Boolean
    Public Property FromAlt() As Integer
        Get
            Return _fromAlt
        End Get
        Set(ByVal value As Integer)
            _fromAlt = value
        End Set
    End Property

    Private _fromCtrl As Boolean
    Public Property FromCtrl() As Boolean
        Get
            Return _fromCtrl
        End Get
        Set(ByVal value As Boolean)
            _fromCtrl = value
        End Set
    End Property

    Private _fromShift As Boolean
    Public Property FromShift() As Boolean
        Get
            Return _fromShift
        End Get
        Set(ByVal value As Boolean)
            _fromShift = value
        End Set
    End Property

    Private _toKeycode As Integer
    Public Property ToKeycode() As Integer
        Get
            Return _toKeycode
        End Get
        Set(ByVal value As Integer)
            _toKeycode = value
        End Set
    End Property

    Private _toAlt As Boolean
    Public Property ToAlt() As Boolean
        Get
            Return _toAlt
        End Get
        Set(ByVal value As Boolean)
            _toAlt = value
        End Set
    End Property

    Private _toCtrl As Boolean
    Public Property ToCtrl() As Boolean
        Get
            Return _toCtrl
        End Get
        Set(ByVal value As Boolean)
            _toCtrl = value
        End Set
    End Property

    Private _toShift As Boolean
    Public Property ToShift() As Boolean
        Get
            Return _toShift
        End Get
        Set(ByVal value As Boolean)
            _toShift = value
        End Set
    End Property

    Private _keypress As String
    Public Property KeyPress() As String
        Get
            Return _keypress
        End Get
        Set(ByVal value As String)
            _keypress = value
        End Set
    End Property

    Private _pause As Integer
    Public Property Pause() As Integer
        Get
            Return _pause
        End Get
        Set(ByVal value As Integer)
            _pause = value
        End Set
    End Property

    'Private _count As Integer
    'Public Property Count() As Integer
    '    Get
    '        Return _count
    '    End Get
    '    Set(ByVal value As Integer)
    '        _count = value
    '    End Set
    'End Property

    Public Function Count() As Integer

    End Function


End Class
